  setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
prints("static array")
  dim a[10]:for i=1 to 10:a[i]=i:next
  for i=1 to 10:fprints(a[i]+" "):next:prints("")
prints(""):prints("erasing array[5]")
  erase a[5]
  for i=1 to 10:fprints(a[i]+" "):next:prints("")
prints(""):prints("erasing whole array")
  erase a[] 
  for i=1 to 10:fprints(a[i]+" "):next
while key(27)=0:wend
